| PDumperEICalib-Runfile V 2.07
| Generated 02-22-2003 T. Milius
| Changed   09-15-2004 T. Milius
|
<Obey$Dir>.!Boot
| Toolbox Ressources check
RMEnsure Toolbox 1.43 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Toolbox 1.43 Error You need Toolbox 1.43 or higher to run !Calibration
RMEnsure Window  0.00  RMLoad System:modules.toolbox.window
RMEnsure Window  1.17  Error You need Window 1.17 or higher to run !Calibration
RMEnsure Menu  0.00  RMLoad System:modules.toolbox.menu
RMEnsure Menu  0.13  Error You need Menu 0.13 or higher to run !Calibration
RMEnsure ProgInfo  0.00  RMLoad System:modules.toolbox.proginfo
RMEnsure Proginfo  0.00  Error You need Proginfo or higher to run !Calibration
RMEnsure IconBar  0.00  RMLoad System:modules.toolbox.IconBar
RMEnsure IconBar  0.00  Error You need IconBar or higher to run !Calibration
RMEnsure ColourDbox  0.00  RMLoad System:modules.toolbox.ColourDbox
RMEnsure ColourDbox  0.00  Error You need ColourDbox or higher to run !Calibration
| Check for !Printers
If "<Printers$Dir>" = "" Then Error Can't locate !Printers
| Auto installation if required
| Temp-Directory
Ifthere <Wimp$ScrapDir>.PDPEICal Then Else CDir <Wimp$ScrapDir>.PDPEICal
| Printers-Resources
IfThere <Printers$Dir>.Resources Then Else CDir <Printers$Dir>.Resources
IfThere <Printers$Dir>.Resources.PDumpers Then Else CDir <Printers$Dir>.Resources.PDumpers
IfThere <Printers$Dir>.Resources.PDumpers.PDumperEI Then Else CDir <Printers$Dir>.Resources.PDumpers.PDumperEI
Set PDPEICal$ConfDir <Printers$Dir>.Resources.PDumpers.PDumperEI
IfThere <PDPEICal$ConfDir>.Ditherinfo Then Else Copy <PDPEICal$Dir>.Resources.Ditherinfo <PDPEICal$ConfDir>.Ditherinfo ~CFN~V
| Check for old versions
| Try to load to determine the installed version
IfThere <Printers$Dir>.PDumpers.PDumperEI Then Set PDPEICal$Exists Yes Else Set PDPEICal$Exists No
If "<PDPEICal$Exists>"="Yes" Then RMEnsure PDumperEI 0.01 RMLoad <Printers$Dir>.PDumpers.PDumperEI
| Set if not already the new version (only incompatible versions)
Set PDPEICal$CleanUp No
RMEnsure PDumperEI 2.06 Set PDPEICal$CleanUp Yes
| Check whether really loaded
Set PDPEICal$Loaded Yes
RMEnsure PDumperEI 0.01 Set PDPEICal$Loaded No
| Not installed does not need a clean up
If "<PDPEICal$Loaded>"="No" Then Set PDPEICal$CleanUp No
If "<PDPEICal$CleanUp>"="No" Then Set PDPEICal$Loaded No
If "<PDPEICal$Loaded>"="Yes" Then RMKill PDumperEI
| Created Backup directory
IfThere <Wimp$ScrapDir>.PDPEICal.Old Then Set PDPEICal$Exists Yes Else Set PDPEICal$Exists No
If "<PDPEICal$Exists>"="Yes" Then Wipe <Wimp$ScrapDir>.PDPEICal.Old ~CFR~V
If "<PDPEICal$CleanUp>"="Yes" Then CDir <Wimp$ScrapDir>.PDPEICal.Old
| Move old dumper module
If "<PDPEICal$CleanUp>"="Yes" Then Copy <Printers$Dir>.PDumpers.PDumperEI <Wimp$ScrapDir>.PDPEICal.Old.PDumperEI ~CF~N~V
| Move old calibrations etc.
If "<PDPEICal$CleanUp>"="Yes" Then Copy <PDPEICal$ConfDir>.* <Wimp$ScrapDir>.PDPEICal.Old.* ~CDF~N~V
| Show Backup directory
If "<PDPEICal$CleanUp>"="Yes" Then Filer_OpenDir <Wimp$ScrapDir>.PDPEICal.Old
Unset PDPEICal$CleanUp
Unset PDPEICal$Loaded
Unset PDPEICal$Exists
| Install always the newest ditherinfo version
Copy <PDPEICal$Dir>.Resources.Ditherinfo <PDPEICal$ConfDir>.Ditherinfo ~CFN~V
| Install always the newest dumper version before calibration is started
Copy <PDPEICal$Dir>.Resources.PDumperEI <Printers$Dir>.PDumpers.PDumperEI ~CFN~V
| Show available PDFs
Filer_OpenDir <PDPEICal$Dir>.Resources.PDFs
| Check whether already running
If "<PDPEICal$Running>" <> "" Then Error PDPEICal is already running
Set PDPEICal$Running Yes
| Program start
Run <PDPEICal$Dir>.!RunImage
UnSet PDPEICal$Running
